home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor2 / analemma.src < prev    next >
Text File  |  1992-08-18  |  3KB  |  176 lines
  1. %%HP: T(3)A(D)F(.);
  2. @ ANALEMMA by Craig A. Finseth
  3. DIR
  4.   GO
  5.     \<< RCLF DEG
  6. ERASE { # 0h # 0h }
  7. PVIEW FRAME BASE
  8. TICK LBL 7 FREEZE
  9. STOF
  10.     \>>
  11.   BASE
  12.     \<< 0 PLACE 0 365
  13.       FOR d d PLACE
  14. DUP ROT LINE 5
  15.       STEP DROP
  16.     \>>
  17.   E -3.19866112964
  18.   FIGE
  19.     \<< L0 .0057183 -
  20. \Ga - \GDp \Ge COS * +
  21. 'E' STO
  22.     \>>
  23.   FIGJD
  24.     \<< 78 +
  25. 2451545.5 + 'JD'
  26. STO
  27.     \>>
  28.   FIGL0
  29.     \<< T 10 / \-> \Gt
  30.       \<< 280.4664567
  31. 360007.698278 \Gt * +
  32. .03032028 \Gt SQ * +
  33. 360 MOD 'L0' STO
  34.       \>>
  35.     \>>
  36.   FIGT
  37.     \<< JD 2451545 -
  38. 36525 / 'T' STO
  39.     \>>
  40.   FIG\Ga
  41.     \<< 357.5291
  42. 35999.0503 T * +
  43. 360 MOD \-> M
  44.       \<< 1.9146
  45. .004817 T * -
  46. .000014 T SQ * - M
  47. SIN * .019993
  48. .000101 T * - M 2 *
  49. SIN * + .00029 M 3
  50. * SIN * + L0 + \-> OD
  51.         \<< 125.04
  52. 1934.136 T * - 360
  53. MOD \-> \GW
  54.           \<< OD
  55. .00569 - .00478 \GW
  56. SIN * - \-> \Gl
  57.             \<< \Ge
  58. .00256 \GW COS * +
  59. COS \Gl SIN * \Gl COS
  60. SWAP R\->C ARG 360 +
  61. 360 MOD
  62.             \>>
  63.           \>>
  64.         \>>
  65.       \>> '\Ga' STO
  66.     \>>
  67.   FIG\GD
  68.     \<< 125.04452
  69. 1934.136261 T * -
  70. 360 MOD 280.4665
  71. 36000.7698 T * +
  72. 360 MOD 218.3165
  73. 481267.8813 T * +
  74. 360 MOD \-> \GW L LP
  75.       \<< -.00172
  76. HMS\-> \GW SIN *
  77. .000132 HMS\-> 2 L *
  78. SIN * - .000023
  79. HMS\-> 2 LP * SIN * -
  80. .000021 HMS\-> 2 \GW *
  81. SIN * + '\GDp' STO
  82. .00092 HMS\-> \GW COS *
  83. .000057 HMS\-> L 2 *
  84. COS * + .00001 HMS\->
  85. LP 2 * COS * +
  86. .000009 HMS\-> \GW 2 *
  87. COS * - '\GD\Ge' STO
  88.       \>>
  89.     \>>
  90.   FIG\Gd
  91.     \<< T 36525 * 78
  92. - 365 / 360 * 360
  93. MOD SIN \Ge * '\Gd' STO
  94.     \>>
  95.   FIG\Ge
  96.     \<< 23.2621448
  97. HMS\-> .0046815 HMS\->
  98. T * - .000000059
  99. HMS\-> T SQ * - \GD\Ge +
  100. '\Ge' STO
  101.     \>>
  102.   FRAME
  103.     \<< (-51.17,-20)
  104. (51.17,-20) LINE
  105. (-51.17,-10)
  106. (51.17,-10) LINE
  107. (-51.17,0)
  108. (51.17,0) LINE
  109. (-51.17,10)
  110. (51.17,10) LINE
  111. (-51.17,20)
  112. (51.17,20) LINE
  113. (0,-25) (0,25) LINE
  114.     \>>
  115.   JD 2451967.5
  116.   L0 336.902466384
  117.   LBL
  118.     \<< PICT (-32,1)
  119. "Mar" 2 \->GROB GXOR
  120. PICT (-32,16) "Aug"
  121. 2 \->GROB GXOR PICT
  122. (-32,25) "Jul" 1
  123. \->GROB GXOR PICT
  124. (27,25) "Jun" 1
  125. \->GROB GXOR PICT
  126. (27,19) "May" 1
  127. \->GROB GXOR PICT
  128. (27,13) "Apr" 1
  129. \->GROB GXOR PICT
  130. (27,4) "Sep" 2
  131. \->GROB GXOR PICT
  132. (27,-6) "Oct" 2
  133. \->GROB GXOR PICT
  134. (27,-17) "Nov" 1
  135. \->GROB GXOR PICT
  136. (27,-22) "Dec" 1
  137. \->GROB GXOR PICT
  138. (-32,-19) "Jan" 1
  139. \->GROB GXOR PICT
  140. (-32,-9) "Feb" 2
  141. \->GROB GXOR
  142.     \>>
  143.   PLACE
  144.     \<< FIGJD FIGT
  145. FIG\GD FIG\Ge FIGL0
  146. FIG\Ga FIGE FIG\Gd E 4
  147. * \Gd R\->C
  148.     \>>
  149.   PPAR {
  150. (-51.17,-25)
  151. (51.17,25) X 0
  152. (0,0) PARAMETRIC Y
  153. }
  154.   T
  155. 1.15674195756E-2
  156.   TICK
  157.     \<< { 0 10 40 71
  158. 91 101 132 163 184
  159. 193 224 254 274 285
  160. 316 344 } DUP SIZE
  161. \-> d n
  162.       \<< 1 n
  163.         FOR j d j
  164. GET PLACE PIXOFF
  165.         NEXT
  166.       \>>
  167.     \>>
  168.   \Ga 340.091306964
  169.   \GD\Ge
  170. -4.10799632761E-4
  171.   \GDp
  172. -4.47118519728E-3
  173.   \Gd -8.10071364255
  174.   \Ge 23.4387298868
  175. END
  176.